home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Sample Code / AppsToGo / DTS.Lib / CDEFs / viewCDEF.a < prev    next >
Encoding:
Text File  |  1994-09-22  |  1.3 KB  |  66 lines  |  [TEXT/MPS ]
  1.         include    'traps.a'
  2. ;
  3. ; Apple Macintosh Developer Technical Support
  4. ;
  5. ; File:        viewCDEF.a
  6. ; Written by:  Eric Soldan
  7. ;
  8. ; Copyright © 1990-1991 Apple Computer, Inc.
  9. ; All rights reserved.
  10. ;
  11. ;
  12.  
  13.         case    on
  14.  
  15.         seg    'viewCDEF'
  16. jmpInstruction    PROC
  17.         jsr    mayBreak
  18.         movea.l    procPtr,A0
  19.         move    A0,D0
  20.         beq.s    defCtl
  21.         jmp    (A0)
  22. procPtr        dc.l    0
  23. mayBreak        rts        ;Put a _Debugger statement in front
  24.                 ;of the rts if you need to break.
  25. defCtl        LINK      A6,#-8
  26.         MOVE.L    D6,-(A7)
  27.         MOVEQ     #$00,D6
  28.         MOVEA.L   14(A6),A0
  29.         MOVEA.L   (A0),A0
  30.         MOVE.L    $0008(A0),-8(A6)
  31.         MOVE.L    $000C(A0),-4(A6)
  32.         MOVE.W    12(A6),D0
  33.         BEQ.S     *+$0016        ; 00000034
  34.         BMI.S     *+$003E        ; 0000005E
  35.         SUBI.W    #$000A,D0
  36.         BPL.S     *+$0008        ; 0000002E
  37.         ADDQ.W    #$8,D0
  38.         BEQ.S     *+$0012        ; 0000003C
  39.         BRA.S     *+$0032        ; 0000005E
  40.         SUBQ.W    #$2,D0
  41.         BPL.S     *+$002E        ; 0000005E
  42.         BRA.S     *+$000A        ; 0000003C
  43.         PEA       -8(A6)
  44.         _FrameRect
  45.         BRA.S     *+$0024        ; 0000005E
  46.         CMPI.W    #$0002,12(A6)
  47.         BNE.S     *+$0008        ; 0000004A
  48.         ANDI.W    #$00FF,8(A6)
  49.         MOVE.L    8(A6),-(A7)
  50.         PEA       -8(A6)
  51.         _RectRgn
  52.         CMPI.W    #$0002,12(A6)
  53.         BEQ.S     *+$0004        ; 0000005E
  54.         MOVEQ     #$01,D6
  55.         MOVE.L    D6,$0014(A6)
  56.         MOVE.L    (A7)+,D6
  57.         UNLK      A6
  58.         MOVEA.L   (A7)+,A0
  59.         LEA       $000C(A7),A7
  60.         JMP       (A0)
  61.  
  62.         ENDP
  63.  
  64.         END 
  65.  
  66.